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L 
»-ENDM BUG_CHECK 
; MACRO TO SIGNAL AN ERROR STATUS AND CONTINUE. 
»-MACRO ERROR CODE 
MOVL #CODE ,USER_STATUS 
-ENDM = ERROR 
; MACRO TO SIGNAL AN ERROR STATUS AND EXIT. 
MACRO ERR_EXIT CODE 


MOVZWL CODE,-(SP) 
HALT 3 UNTIL WE FIGURE THIS OUT 
-ENDM  =ERR_EXIT 


v04=000 -SEP=1984 MOUNT. SRCJFCPDEF .MAR; 1 (2) 
00 3 
i 6 ; ASSORTED MACROS USED IN FCP CODE 
00 -MACRO SET_IPL LEVEL ; SET PROCESSOR IPL (DUMMY NOW) 
90 .ENDM = SETTIPL 
§ : MACRO USED TO SIGNAL FATAL ERRORS (INTERNAL CONSISTENCY CHECKS). 
00 F -MACRO BUG_CHECK CODE, TYPE, MESSA GE 
00 HALT ; SIMPLY CALL A HALT FOR NOW 
$0 
00 
00 
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Sete . 


SOoOoCQOOoOooooooooooooooooo 


: TYPE CODES USED TO IDENTIFY BLOCKS BEING READ BY READ BLOCK. 
; NOTE THAT READ_BLOCK CONTAINS A TABLE INDEXED BY THESE CODES. 
0000000 ? HEADER _TYPE = 0 ; FILE HEADER 
00000001 BITMAP TYPE = 1 : STORAGE BITMAP 
90000008 pinecone TYPE = : + DIRECTORY BLOCK 
0000000 INDEX_ TYPE = : OTHER INDEX FILE BLOCKS 
: TYPE CODES USED To O IDENTIFY BLOCKS OF MEMORY REQUESTED FROM THE 
> ALLOCATOR. NOTE THAT THESE CODES INDEX INTO A TABLE IN ALLOCATE. 
000 : FCB_TYPE = 0 : FILE CONTROL BLOCK 
001 WCB" TYPE = 1 : WINDOW BLOCK 
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-TITLE CHNUCB = GET ASSUGNED UCB ADDRESS OF CHANNEL 
-IDENT ‘V04=-000' 


MARAARAAAAARAAALAAAALALALAALALE SALAS E SESE E ERASE E ERASE SER EER REECE EERE REESE EAS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eRPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: F11ACP STRUCTURE LEVEL 1 
ABSTRACT: 
hoe RETURNS THE ADDRESS OF THE UCB ASSIGNED TO THE GIVEN 


ENVIRONMENT: 


SSSSSSssssssssssooescse 


STARLET OPERATING SYSTEM, INCLUDING PR 


IVILEGED SYSTEM SERVICES 
AND INTERNAL EXEC ROUTINES. THIS ROUTINE MUST ALLED IN 
KERNEL MODE. 


MUST BE C 
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AUTHOR: ANDREW C. GOLDSTEIN, CREATION DATE: 28-APR-1977 16:26 
MODIFIED BY: 


v02-000 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:40 
Previous revision history moved to MOUNT.REV 
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t EQUATED SYMBOLS: 


00000004 CHANNEL = 4 : ADDRESS OF CHANNEL NUMBER ARG 
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0000 58 SCCBDEF ; DEFINE CHANNEL CONTROL BLOCK 
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FUNCTIONAL DESCRIPTION: 
THIS ROUTINE RETURNS THE ADDRESS OF THE UCB ASSIGNED TO THE GIVEN 
CHANNEL. 

CALLING SEQUENCE: 
CALL GET_CHANNELUCB (ARG1) 


INPUT PARAMETERS: 
ARG1: CHANNEL NUMBER 


IMPLICIT INPUTS: 
NONE 


SNA AAA AAA AAO 


WO OONAOUS WO 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 
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SIDE EFFECTS: 
NONE 


-PSECT $CODE$,NOWRT,LONG 


GET_CHANNELUCB: : 
. WORD > ; SAVE REGISTERS 

: GET CHANNEL NUMBER 

: GET UCB WITH EXEC SUBROUTINE 

RO, 108 : BRANCH IF GOOD 


XIT_ RO 
10$: move CCBSL_UCB(R1) ,RO ; RETURN UCB ADDRESS AS VALUE 
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CHNUCB 
Symbol table 


sg TYPE = 1 
MotaE 98888) 
fh ten 4 = 4 
Pepe Type = TYPE = 
= 

GET~ penne Ce RG 02 
HEABER_ TYPE = 
INDEX Rey YPE = 00 0 
IOCSVERIFYCHAN eeeeeeee = § x 2 
WCB_TYPE = 00000001 

groan amon on wan ane > 

: Psect synopsis ! 

bere ce ese nce en cace + 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 00 . 0.) NOPIC USR CON ABS LCL 
SABSS 00000000 ( 0°) 01 ¢ 1.) NOPIC USR CON ABS- LCL NOSHR 
SCODES 0000001 Lia 02 ¢( 2.) NOPIC USR CON REL LCL NOSHR 

sec eeae SOR EE Den sewoce mea + 
H Per formance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 39 00:00: 8-08 0:00:00.80 
Command processing 168 Ba! 0:00.7 00:00:03.66 
Pass 1 131 0:00:01.18 0:00:05.01 
Syabol table sort ‘ 09: 0: 8-9) Bet 5 
Symbol table output 5:00; 8° 00:00;00: 46 
Psect synopsis output B22 82: 0.0 B3 28:B0-OF 
Cross-reference output 88:8 : 3-2 0:00: 9.09 
Assembler run totals 34 0:00:02. 00:00:12.1 


The working a Limit was 900 pages. 

3241 bytes (7 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 30 non-local and 1 Local symbols. 
7 source (ines were read in Pass 1, producing 13 object records in Pass 2. 

12 pages of virtual memory were used to define 11 macros. 


Se OPE woe Gee re wees wee meee + 


Macro Library name 


“$522 S0UAgE: ESysites JL1B.MLB;1 1 
$255$DUA evs. 18 STARLET. MLB; 2 3 
TOTALS (all libraries) 4 


80 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 


EXE 


AX/VMS Macro V04-00 
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NOSHR NOEXE NORD NOWRT NOVEC BYTE 
EXE RD T NOVEC BYTE 

| 


RD NOURT NOVEC LONG 
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